home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / docs / lists / LibGuide.lha / LibGuide / CheckYourLibraries < prev    next >
Encoding:
Text File  |  1998-10-30  |  2.1 KB  |  68 lines
  1. ; CheckYourLibs V2.0
  2. ; © 10/1998 by Michaela Prüß & Heiko Schröder
  3.  
  4.  
  5. Echo "Library-Check V2.0*N© Michaela Prüß & Heiko Schröder 10/98"
  6. Echo "*NThe report will be written in RAM: and you can't stop the version scan!"
  7. Ask "Do you want to check your system for libraries? (Y/N)"
  8. If NOT WARN=5
  9.    Echo "CANCEL ..."
  10.    C:Quit
  11. EndIf 
  12.  
  13. C:FailAt 100
  14. C:Copy DVC RAM:
  15. C:Copy C:Search RAM:
  16. C:Copy Scripts/LibList.dvc RAM:
  17. C:Copy MyCheck RAM:
  18. C:Copy MyCheck.rexx RAM:
  19. C:Copy MyConvert.rexx RAM:
  20.  
  21. Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
  22. Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
  23. Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
  24. Echo "For LibGuide I scan infos about your system:" >>Ram:lib-NewList
  25. Version >>Ram:Lib-NewList
  26. C:CPU >>Ram:Lib-NewList
  27.  
  28. Echo "Starting Rexx"
  29. Sys:System/RexxMast >NIL:
  30.  
  31. Echo "Looking for Libs:#?.library"
  32. C:List Libs: PAT=#?.library#? ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
  33.  
  34. Sort Ram:List1 Ram:List1
  35.  
  36. Echo "Starting Check..."
  37. Protect MyCheck +s
  38. Execute Ram:List1
  39. Echo "*N*NREADY!*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
  40. Echo "Please send me the RAM:Lib-NewList for updating the Libraries.guide.*N"
  41. Delete Ram:List1 QUIET
  42. Delete Ram:DVC QUIET
  43. Delete Ram:Search QUIET
  44. Delete Ram:LibList.dvc QUIET
  45. Delete Ram:MyCheck QUIET
  46. Delete Ram:MyCheck.rexx QUIET
  47. Delete Ram:MyConvert.rexx QUIET
  48.  
  49. Ask "Please press ENTER for next Step."
  50. C:CLS
  51.  
  52. ; Library Online Update Generating Script
  53.  
  54. Echo "Online Library Update Form Generator 1.0*N© 10/98 by Heiko Schröder*N"
  55. Ask "Next Step... *NDo you want to create a Form for updating libraries online at http://www.amigasystem.org? (Y/N)"
  56. If NOT WARN=5
  57.    Echo "CANCEL ..."
  58.    Delete Ram:Lib-OnlineUpdate QUIET
  59.    C:Quit
  60. EndIf
  61. Echo "Generating Form..."
  62. rx MyOnlineUpdate.rexx
  63.  
  64. Delete Ram:Lib-OnlineUpdate QUIET
  65. Echo "Ready. Please load RAM:Lib-OnlineUpdate.html in your browser and follow the instructions."
  66. Ask "*NPress ENTER to end..."
  67. Wait 2 secs
  68.